home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 April / 64er_Magazin_86-04_1986_Markt__Technik_de.d64 / listing 4 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  506b  |  14 lines
  1. 10 rem *** programm teilbildschirm in basic ***
  2. 20 input"ecke links oben s1,z1   =";s1,z1
  3. 30 input"ecke rechts unten s2,z2 =";s2,z2
  4. 40 input"was soll hinein          ";w
  5. 50 rem ** steuerwerte berechnen: s  = bildschirmstartadresse
  6. 60 rem                           sd = spaltendifferenz
  7. 70 rem                           zd = zeilendifferenz
  8. 80 sc = (NULL)("3ff"):s = sc + 40*(z1-1) + s1:sd = s2 - s1:zd = z2 - z1
  9. 90 rem *** schleife ***
  10. 100 i=0:z=0
  11. 110 :poke s+i,w
  12. 120 :i=i+1:if i>sd then s=s+40:i=0:z=z+1:if z>zd then end
  13. 130 :goto 110
  14.